home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Sound
/
Utilities
/
K1 Librarian 1.0.0
/
Sample Scripts
/
13 Set Comment Text - 3
< prev
next >
Wrap
Text File
|
1994-05-30
|
225b
|
9 lines
tell application "K1 Librarian"
activate -- if needed
set x to "This patch was made by T.Suzuki"
repeat while (Text 1 of Window -1 is not x)
set Index of Window -1 to 1
set Text 1 of Window 1 to x
end repeat
end tell